home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / hardware.swg / 0022_Color Monitor.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-01-27  |  744 b   |  19 lines
  1. {
  2. > I have always addressed $B800 as the screen segment for direct video
  3. > writes in text.... Err, umm, does anyone have the code to detect whether
  4. > it is $B000 or $B800 (for Herc.'s and the like)...
  5. }
  6.  
  7. Function ColorAdaptor: Boolean; Assembler; {returns TRUE for color monitor}
  8. asm
  9.   int 11                   {BIOS call - get equipment list}
  10.   and ax, $0030            {mask off all but bits 4 & 5}
  11.   xor ax, $0030            {flip bits 4 & 5 - return val is in ax}
  12. end;
  13.  
  14. {
  15. This function uses a BIOS interrupt to get the equipment list(at $0000:$0410)
  16. as determined at time of power-up.  The only problem I can see here is that
  17. a TRUE(non-zero value in al) will also be returned if no video card was
  18. detected at power-up.
  19. }